home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / sptmbr11.lha / systems.lisp < prev   
Encoding:
Text File  |  1992-08-20  |  399 b   |  10 lines
  1. (in-package :user)
  2. (load #-kcl "system" 
  3.       #+kcl (if #-|NeXT| (probe-file "system.o") #+|NeXT| nil
  4.         "system.o" "system.lisp"))
  5. (dolist (sn '(system pcl clcs common-lisp clx inspecter))
  6.   (push (cons (dsys::find-system sn) :compile) dsys::*loaded-systems*))
  7. ;(format t "~&Type:~%(si:save-system \"systems_kcl\")~%")
  8. ;#+kcl(si:save-system "systems_kcl")
  9. ;#+lucid(lucid:disksave "sys" :full-gc t)
  10.